home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1999-02-13 | 4.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 05 43 6c 61 73 73 0b 4e | 65 74 73 63 61 70 65 42 |.Class.N|etscapeB|
|00000010| 61 72 8d 01 2a bf 09 ab | 09 05 00 0b 4e 65 74 73 |ar..*...|....Nets|
|00000020| 63 61 70 65 42 61 72 ad | 01 06 43 61 6e 76 61 73 |capeBar.|..Canvas|
|00000030| 04 12 6d 61 78 69 6d 75 | 6d 20 61 73 20 69 6e 74 |..maximu|m as int|
|00000040| 65 67 65 72 00 10 76 61 | 6c 75 65 20 61 73 20 69 |eger..va|lue as i|
|00000050| 6e 74 65 67 65 72 00 13 | 73 74 65 70 53 69 7a 65 |nteger..|stepSize|
|00000060| 20 61 73 20 69 6e 74 65 | 67 65 72 00 14 6e 6f 46 | as inte|ger..noF|
|00000070| 6c 69 63 6b 65 72 20 61 | 73 20 62 6f 6f 6c 65 61 |licker a|s boolea|
|00000080| 6e 00 07 08 73 65 74 56 | 61 6c 75 65 0c 76 20 61 |n...setV|alue.v a|
|00000090| 73 20 69 6e 74 65 67 65 | 72 00 00 08 00 08 00 0c |s intege|r.......|
|000000a0| 1a 53 75 62 20 73 65 74 | 56 61 6c 75 65 28 76 20 |.Sub set|Value(v |
|000000b0| 61 73 20 69 6e 74 65 67 | 65 72 29 2f 27 43 61 6c |as integ|er)/'Cal|
|000000c0| 6c 69 6e 67 20 74 68 69 | 73 20 73 65 74 73 20 74 |ling thi|s sets t|
|000000d0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 74 68 65 20 |he value| of the |
|000000e0| 70 72 6f 67 72 65 73 73 | 62 61 72 34 27 61 6e 64 |progress|bar4'and|
|000000f0| 20 72 65 64 72 61 77 73 | 20 74 68 65 20 62 61 72 | redraws| the bar|
|00000100| 2e 20 20 59 6f 75 20 63 | 61 6e 20 73 65 74 20 74 |. You c|an set t|
|00000110| 68 65 20 76 61 6c 75 65 | 20 74 68 72 6f 75 67 68 |he value| through|
|00000120| 33 27 74 68 65 20 76 61 | 6c 75 65 20 70 72 6f 70 |3'the va|lue prop|
|00000130| 65 72 74 79 20 62 75 74 | 20 79 6f 75 20 6d 75 73 |erty but| you mus|
|00000140| 74 20 72 65 6d 65 6d 62 | 65 72 20 74 6f 20 65 69 |t rememb|er to ei|
|00000150| 74 68 65 72 30 27 72 65 | 66 72 65 73 68 20 6f 72 |ther0're|fresh or|
|00000160| 20 63 61 6c 6c 20 74 68 | 65 20 64 72 61 77 20 6d | call th|e draw m|
|00000170| 65 74 68 6f 64 20 69 6e | 20 6f 72 64 65 72 20 74 |ethod in| order t|
|00000180| 6f 20 73 65 65 36 27 74 | 68 65 20 63 68 61 6e 67 |o see6't|he chang|
|00000190| 65 73 2e 20 20 54 68 69 | 73 20 6d 65 74 68 6f 64 |es. Thi|s method|
|000001a0| 20 74 61 6b 65 73 20 63 | 61 72 65 20 6f 66 20 74 | takes c|are of t|
|000001b0| 68 61 74 20 66 6f 72 20 | 79 6f 75 2e 00 14 27 50 |hat for |you...'P|
|000001c0| 41 52 41 4d 45 54 45 52 | 53 3a 20 69 6e 74 65 67 |ARAMETER|S: integ|
|000001d0| 65 72 00 09 76 61 6c 75 | 65 20 3d 20 76 04 64 72 |er..valu|e = v.dr|
|000001e0| 61 77 07 45 6e 64 20 53 | 75 62 0a 73 65 74 4d 61 |aw.End S|ub.setMa|
|000001f0| 78 69 6d 75 6d 0c 6d 20 | 61 73 20 69 6e 74 65 67 |ximum.m |as integ|
|00000200| 65 72 00 00 01 00 01 00 | 0c 1c 53 75 62 20 73 65 |er......|..Sub se|
|00000210| 74 4d 61 78 69 6d 75 6d | 28 6d 20 61 73 20 69 6e |tMaximum|(m as in|
|00000220| 74 65 67 65 72 29 2a 27 | 53 65 74 73 20 74 68 65 |teger)*'|Sets the|
|00000230| 20 6d 61 78 69 6d 75 6d | 20 73 69 7a 65 20 6f 66 | maximum| size of|
|00000240| 20 74 68 65 20 70 72 6f | 67 72 65 73 73 62 61 72 | the pro|gressbar|
|00000250| 2e 28 27 54 68 65 20 6d | 61 78 69 6d 75 6d 20 73 |.('The m|aximum s|
|00000260| 69 7a 65 20 63 61 6e 20 | 61 6c 73 6f 20 62 65 20 |ize can |also be |
|00000270| 63 68 61 6e 67 65 64 20 | 62 79 29 27 64 69 72 65 |changed |by)'dire|
|00000280| 63 74 6c 79 20 61 63 63 | 65 73 73 69 6e 67 20 74 |ctly acc|essing t|
|00000290| 68 65 20 6d 61 78 69 6d | 75 6d 20 70 72 6f 70 65 |he maxim|um prope|
|000002a0| 72 74 79 2e 27 27 49 66 | 20 74 68 65 20 6d 61 78 |rty.''If| the max|
|000002b0| 69 6d 75 6d 20 69 73 20 | 73 65 74 20 74 6f 20 30 |imum is |set to 0|
|000002c0| 20 28 7a 65 72 6f 29 20 | 74 68 65 6e 21 27 74 68 | (zero) |then!'th|
|000002d0| 65 20 70 72 6f 67 72 65 | 73 73 62 61 72 20 77 69 |e progre|ssbar wi|
|000002e0| 6c 6c 20 64 69 73 70 6c | 61 79 20 74 68 65 0e 27 |ll displ|ay the.'|
|000002f0| 42 61 72 62 65 72 20 50 | 6f 6c 65 73 2e 00 14 27 |Barber P|oles...'|
|00000300| 50 41 52 41 4d 45 54 45 | 52 53 3a 20 69 6e 74 65 |PARAMETE|RS: inte|
|00000310| 67 65 72 00 0b 6d 61 78 | 69 6d 75 6d 20 3d 20 6d |ger..max|imum = m|
|00000320| 07 45 6e 64 20 53 75 62 | 05 41 62 6f 75 74 00 00 |.End Sub|.About..|
|00000330| 00 05 2a 05 2a 0b 0b 53 | 75 62 20 41 62 6f 75 74 |..*.*..S|ub About|
|00000340| 28 29 28 27 54 68 69 73 | 20 63 6c 61 73 73 20 77 |()('This| class w|
|00000350| 61 73 20 63 72 65 61 74 | 65 64 20 62 79 3a 20 4d |as creat|ed by: M|
|00000360| 69 6b 65 20 42 61 69 6c | 65 79 22 23 27 53 65 6e |ike Bail|ey"#'Sen|
|00000370| 64 20 61 6e 79 20 63 6f | 6d 6d 65 6e 74 73 20 6f |d any co|mments o|
|00000380| 72 20 71 75 65 73 74 69 | 6f 6e 73 20 74 6f 3a 12 |r questi|ons to:.|
|00000390| 27 54 75 69 6b 42 6c 61 | 64 65 40 61 6f 6c 2e 63 |'TuikBla|de@aol.c|
|000003a0| 6f 6d 00 13 27 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |om..'===|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 13 | 27 3d 3d 20 56 45 52 53 |=======.|'== VERS|
|000003c0| 49 4f 4e 3a 20 31 2e 30 | 20 3d 3d 13 27 3d 3d 3d |ION: 1.0| ==.'===|
|000003d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 00 |========|=======.|
|000003e0| 2a 6d 73 67 42 6f 78 20 | 22 4e 65 74 73 63 61 70 |*msgBox |"Netscap|
|000003f0| 65 42 61 72 20 63 6c 61 | 73 73 20 62 79 3a 20 4d |eBar cla|ss by: M|
|00000400| 69 6b 65 20 42 61 69 6c | 65 79 22 07 45 6e 64 20 |ike Bail|ey".End |
|00000410| 53 75 62 04 64 72 61 77 | 00 00 00 11 0a 11 0a 9c |Sub.draw|........|
|00000420| 01 0a 53 75 62 20 64 72 | 61 77 28 29 17 27 52 65 |..Sub dr|aw().'Re|
|00000430| 64 72 61 77 20 74 68 65 | 20 4e 65 74 73 63 61 70 |draw the| Netscap|
|00000440| 65 42 61 72 00 23 64 69 | 6d 20 62 57 69 64 74 68 |eBar.#di|m bWidth|
|00000450| 2c 70 6e 74 73 28 38 29 | 2c 69 2c 78 2c 77 20 61 |,pnts(8)|,i,x,w a|
|00000460| 73 20 69 6e 74 65 67 65 | 72 10 64 69 6d 20 70 20 |s intege|r.dim p |
|00000470| 61 73 20 70 69 63 74 75 | 72 65 11 64 69 6d 20 67 |as pictu|re.dim g|
|00000480| 20 61 73 20 67 72 61 70 | 68 69 63 73 00 18 69 66 | as grap|hics..if|
|00000490| 20 6e 6f 46 6c 69 63 6b | 65 72 20 3d 20 74 72 75 | noFlick|er = tru|
|000004a0| 65 20 74 68 65 6e 1e 70 | 20 3d 20 6e 65 77 50 69 |e then.p| = newPi|
|000004b0| 63 74 75 72 65 28 77 69 | 64 74 68 2c 68 65 69 67 |cture(wi|dth,heig|
|000004c0| 68 74 2c 38 29 0e 67 20 | 3d 20 70 2e 67 72 61 70 |ht,8).g |= p.grap|
|000004d0| 68 69 63 73 04 65 6c 73 | 65 0c 67 20 3d 20 67 72 |hics.els|e.g = gr|
|000004e0| 61 70 68 69 63 73 03 65 | 6e 64 00 11 27 64 72 61 |aphics.e|nd..'dra|
|000004f0| 77 20 74 68 65 20 6f 75 | 74 6c 69 6e 65 1e 67 2e |w the ou|tline.g.|
|00000500| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 72 67 62 28 |foreColo|r = rgb(|
|00000510| 31 37 33 2c 31 37 33 2c | 31 37 33 29 25 67 2e 66 |173,173,|173)%g.f|
|00000520| 69 6c 6c 52 65 63 74 20 | 30 2c 30 2c 6d 65 2e 77 |illRect |0,0,me.w|
|00000530| 69 64 74 68 2d 31 2c 6d | 65 2e 68 65 69 67 68 74 |idth-1,m|e.height|
|00000540| 2d 31 1e 67 2e 66 6f 72 | 65 43 6f 6c 6f 72 20 3d |-1.g.for|eColor =|
|00000550| 20 72 67 62 28 31 32 35 | 2c 31 32 35 2c 31 32 35 | rgb(125|,125,125|
|00000560| 29 25 67 2e 64 72 61 77 | 52 65 63 74 20 30 2c 30 |)%g.draw|Rect 0,0|
|00000570| 2c 6d 65 2e 77 69 64 74 | 68 2d 31 2c 6d 65 2e 68 |,me.widt|h-1,me.h|
|00000580| 65 69 67 68 74 2d 31 1e | 67 2e 66 6f 72 65 43 6f |eight-1.|g.foreCo|
|00000590| 6c 6f 72 20 3d 20 72 67 | 62 28 32 35 35 2c 32 35 |lor = rg|b(255,25|
|000005a0| 35 2c 32 35 35 29 2f 67 | 2e 64 72 61 77 4c 69 6e |5,255)/g|.drawLin|
|000005b0| 65 20 31 2c 6d 65 2e 68 | 65 69 67 68 74 2d 31 2c |e 1,me.h|eight-1,|
|000005c0| 6d 65 2e 77 69 64 74 68 | 2d 31 2c 6d 65 2e 68 65 |me.width|-1,me.he|
|000005d0| 69 67 68 74 2d 31 2e 67 | 2e 64 72 61 77 4c 69 6e |ight-1.g|.drawLin|
|000005e0| 65 20 6d 65 2e 77 69 64 | 74 68 2d 31 2c 31 2c 6d |e me.wid|th-1,1,m|
|000005f0| 65 2e 77 69 64 74 68 2d | 31 2c 6d 65 2e 68 65 69 |e.width-|1,me.hei|
|00000600| 67 68 74 2d 31 1e 67 2e | 66 6f 72 65 43 6f 6c 6f |ght-1.g.|foreColo|
|00000610| 72 20 3d 20 72 67 62 28 | 31 38 39 2c 31 38 39 2c |r = rgb(|189,189,|
|00000620| 31 38 39 29 26 67 2e 64 | 72 61 77 4c 69 6e 65 20 |189)&g.d|rawLine |
|00000630| 30 2c 6d 65 2e 68 65 69 | 67 68 74 2d 31 2c 30 2c |0,me.hei|ght-1,0,|
|00000640| 6d 65 2e 68 65 69 67 68 | 74 2d 31 24 67 2e 64 72 |me.heigh|t-1$g.dr|
|00000650| 61 77 4c 69 6e 65 20 6d | 65 2e 77 69 64 74 68 2d |awLine m|e.width-|
|00000660| 31 2c 30 2c 6d 65 2e 77 | 69 64 74 68 2d 31 2c 30 |1,0,me.w|idth-1,0|
|00000670| 00 13 69 66 20 6d 61 78 | 69 6d 75 6d 20 3d 20 30 |..if max|imum = 0|
|00000680| 20 74 68 65 6e 16 27 64 | 72 61 77 20 74 68 65 20 | then.'d|raw the |
|00000690| 62 61 72 62 65 72 20 70 | 6f 6c 65 73 06 69 20 3d |barber p|oles.i =|
|000006a0| 20 2d 31 18 77 20 3d 20 | 6d 61 78 28 6d 65 2e 68 | -1.w = |max(me.h|
|000006b0| 65 69 67 68 74 2d 31 34 | 2c 2d 31 29 19 78 20 3d |eight-14|,-1).x =|
|000006c0| 20 69 2a 28 6d 65 2e 68 | 65 69 67 68 74 2b 36 29 | i*(me.h|eight+6)|
|000006d0| 2b 76 61 6c 75 65 1c 64 | 6f 20 75 6e 74 69 6c 20 |+value.d|o until |
|000006e0| 78 2b 6d 65 2e 68 65 69 | 67 68 74 2b 36 2b 77 20 |x+me.hei|ght+6+w |
|000006f0| 3c 20 30 09 69 20 3d 20 | 69 20 2d 20 31 18 77 20 |< 0.i = |i - 1.w |
|00000700| 3d 20 6d 61 78 28 6d 65 | 2e 68 65 69 67 68 74 2d |= max(me|.height-|
|00000710| 31 34 2c 2d 31 29 19 78 | 20 3d 20 69 2a 28 6d 65 |14,-1).x| = i*(me|
|00000720| 2e 68 65 69 67 68 74 2b | 36 29 2b 76 61 6c 75 65 |.height+|6)+value|
|00000730| 04 6c 6f 6f 70 02 64 6f | 18 77 20 3d 20 6d 61 78 |.loop.do|.w = max|
|00000740| 28 6d 65 2e 68 65 69 67 | 68 74 2d 31 34 2c 2d 31 |(me.heig|ht-14,-1|
|00000750| 29 19 78 20 3d 20 69 2a | 28 6d 65 2e 68 65 69 67 |).x = i*|(me.heig|
|00000760| 68 74 2b 36 29 2b 76 61 | 6c 75 65 1e 67 2e 66 6f |ht+6)+va|lue.g.fo|
|00000770| 72 65 43 6f 6c 6f 72 20 | 3d 20 72 67 62 28 32 35 |reColor |= rgb(25|
|00000780| 35 2c 32 35 35 2c 32 35 | 35 29 1d 67 2e 64 72 61 |5,255,25|5).g.dra|
|00000790| 77 4c 69 6e 65 20 78 2b | 33 2c 31 2c 78 2b 31 30 |wLine x+|3,1,x+10|
|000007a0| 2b 77 2c 31 27 74 6f 70 | 36 67 2e 64 72 61 77 4c |+w,1'top|6g.drawL|
|000007b0| 69 6e 65 20 78 2b 31 30 | 2b 77 2c 31 2c 78 2b 6d |ine x+10|+w,1,x+m|
|000007c0| 65 2e 68 65 69 67 68 74 | 2b 36 2b 77 2c 6d 65 2e |e.height|+6+w,me.|
|000007d0| 68 65 69 67 68 74 2d 33 | 27 72 69 67 68 74 5c 1e |height-3|'right\.|
|000007e0| 67 2e 66 6f 72 65 43 6f | 6c 6f 72 20 3d 20 72 67 |g.foreCo|lor = rg|
|000007f0| 62 28 31 32 35 2c 31 32 | 35 2c 31 32 35 29 2e 67 |b(125,12|5,125).g|
|00000800| 2e 64 72 61 77 4c 69 6e | 65 20 78 2b 33 2c 32 2c |.drawLin|e x+3,2,|
|00000810| 78 2b 6d 65 2e 68 65 69 | 67 68 74 2c 6d 65 2e 68 |x+me.hei|ght,me.h|
|00000820| 65 69 67 68 74 2d 32 27 | 6c 65 66 74 5c 87 01 67 |eight-2'|left\..g|
|00000830| 2e 64 72 61 77 4c 69 6e | 65 20 78 2b 31 2b 6d 65 |.drawLin|e x+1+me|
|00000840| 2e 68 65 69 67 68 74 2c | 6d 65 2e 68 65 69 67 68 |.height,|me.heigh|
|00000850| 74 2d 32 2c 78 2b 6d 65 | 2e 68 65 69 67 68 74 2b |t-2,x+me|.height+|
|00000860| 36 2b 77 2c 6d 65 2e 68 | 65 69 67 68 74 2d 32 27 |6+w,me.h|eight-2'|
|00000870| 62 6f 74 74 6f 6d 1e 67 | 2e 66 6f 72 65 43 6f 6c |bottom.g|.foreCol|
|00000880| 6f 72 20 3d 20 72 67 62 | 28 32 32 31 2c 32 32 31 |or = rgb|(221,221|
|00000890| 2c 32 32 31 29 08 27 74 | 6f 70 6c 65 66 74 0d 70 |,221).'t|opleft.p|
|000008a0| 6e 74 73 28 31 29 20 3d | 20 78 2b 33 0b 70 6e 74 |nts(1) =| x+3.pnt|
|000008b0| 73 28 32 29 20 3d 20 32 | 0c 27 62 6f 74 74 6f 6d |s(2) = 2|.'bottom|
|000008c0| 20 6c 65 66 74 15 70 6e | 74 73 28 33 29 20 3d 20 | left.pn|ts(3) = |
|000008d0| 78 2b 6d 65 2e 68 65 69 | 67 68 74 15 70 6e 74 73 |x+me.hei|ght.pnts|
|000008e0| 28 34 29 20 3d 20 6d 65 | 2e 68 65 69 67 68 74 2d |(4) = me|.height-|
|000008f0| 32 0d 27 62 6f 74 74 6f | 6d 20 72 69 67 68 74 19 |2.'botto|m right.|
|00000900| 70 6e 74 73 28 35 29 20 | 3d 20 78 2b 6d 65 2e 68 |pnts(5) |= x+me.h|
|00000910| 65 69 67 68 74 2b 37 2b | 77 15 70 6e 74 73 28 36 |eight+7+|w.pnts(6|
|00000920| 29 20 3d 20 6d 65 2e 68 | 65 69 67 68 74 2d 32 09 |) = me.h|eight-2.|
|00000930| 27 74 6f 70 20 6c 65 66 | 74 10 70 6e 74 73 28 37 |'top lef|t.pnts(7|
|00000940| 29 20 3d 20 78 2b 31 30 | 2b 77 0b 70 6e 74 73 28 |) = x+10|+w.pnts(|
|00000950| 38 29 20 3d 20 32 12 67 | 2e 66 69 6c 6c 50 6f 6c |8) = 2.g|.fillPol|
|00000960| 79 67 6f 6e 20 70 6e 74 | 73 09 69 20 3d 20 69 20 |ygon pnt|s.i = i |
|00000970| 2b 20 31 1a 6c 6f 6f 70 | 20 75 6e 74 69 6c 20 78 |+ 1.loop| until x|
|00000980| 2b 33 20 3e 3d 20 6d 65 | 2e 77 69 64 74 68 00 1e |+3 >= me|.width..|
|00000990| 67 2e 66 6f 72 65 43 6f | 6c 6f 72 20 3d 20 72 67 |g.foreCo|lor = rg|
|000009a0| 62 28 32 35 35 2c 32 35 | 35 2c 32 35 35 29 2e 67 |b(255,25|5,255).g|
|000009b0| 2e 64 72 61 77 4c 69 6e | 65 20 6d 65 2e 77 69 64 |.drawLin|e me.wid|
|000009c0| 74 68 2d 31 2c 31 2c 6d | 65 2e 77 69 64 74 68 2d |th-1,1,m|e.width-|
|000009d0| 31 2c 6d 65 2e 68 65 69 | 67 68 74 2d 31 1e 67 2e |1,me.hei|ght-1.g.|
|000009e0| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 72 67 62 28 |foreColo|r = rgb(|
|000009f0| 31 32 35 2c 31 32 35 2c | 31 32 35 29 1c 67 2e 64 |125,125,|125).g.d|
|00000a00| 72 61 77 4c 69 6e 65 20 | 30 2c 30 2c 30 2c 6d 65 |rawLine |0,0,0,me|
|00000a10| 2e 68 65 69 67 68 74 2d | 32 04 65 6c 73 65 0d 27 |.height-|2.else.'|
|00000a20| 64 72 61 77 20 74 68 65 | 20 62 61 72 12 69 66 20 |draw the| bar.if |
|00000a30| 76 61 6c 75 65 20 3c 3e | 20 30 20 74 68 65 6e 32 |value <>| 0 then2|
|00000a40| 62 57 69 64 74 68 20 3d | 20 28 6d 65 2e 77 69 64 |bWidth =| (me.wid|
|00000a50| 74 68 2d 33 29 2a 28 6d | 69 6e 28 76 61 6c 75 65 |th-3)*(m|in(value|
|00000a60| 2c 6d 61 78 69 6d 75 6d | 29 2f 6d 61 78 69 6d 75 |,maximum|)/maximu|
|00000a70| 6d 29 1e 67 2e 66 6f 72 | 65 43 6f 6c 6f 72 20 3d |m).g.for|eColor =|
|00000a80| 20 72 67 62 28 32 30 35 | 2c 32 30 35 2c 32 30 35 | rgb(205|,205,205|
|00000a90| 29 21 67 2e 66 69 6c 6c | 52 65 63 74 20 31 2c 31 |)!g.fill|Rect 1,1|
|00000aa0| 2c 62 57 69 64 74 68 2c | 6d 65 2e 68 65 69 67 68 |,bWidth,|me.heigh|
|00000ab0| 74 2d 32 1e 67 2e 66 6f | 72 65 43 6f 6c 6f 72 20 |t-2.g.fo|reColor |
|00000ac0| 3d 20 72 67 62 28 32 35 | 35 2c 32 35 35 2c 32 35 |= rgb(25|5,255,25|
|00000ad0| 35 29 1c 67 2e 64 72 61 | 77 4c 69 6e 65 20 31 2c |5).g.dra|wLine 1,|
|00000ae0| 31 2c 31 2c 6d 65 2e 68 | 65 69 67 68 74 2d 32 17 |1,1,me.h|eight-2.|
|00000af0| 67 2e 64 72 61 77 4c 69 | 6e 65 20 31 2c 31 2c 62 |g.drawLi|ne 1,1,b|
|00000b00| 57 69 64 74 68 2c 31 1e | 67 2e 66 6f 72 65 43 6f |Width,1.|g.foreCo|
|00000b10| 6c 6f 72 20 3d 20 72 67 | 62 28 31 32 35 2c 31 32 |lor = rg|b(125,12|
|00000b20| 35 2c 31 32 35 29 2a 67 | 2e 64 72 61 77 4c 69 6e |5,125)*g|.drawLin|
|00000b30| 65 20 62 57 69 64 74 68 | 2b 31 2c 31 2c 62 57 69 |e bWidth|+1,1,bWi|
|00000b40| 64 74 68 2b 31 2c 6d 65 | 2e 68 65 69 67 68 74 2d |dth+1,me|.height-|
|00000b50| 32 2b 67 2e 64 72 61 77 | 4c 69 6e 65 20 31 2c 6d |2+g.draw|Line 1,m|
|00000b60| 65 2e 68 65 69 67 68 74 | 2d 32 2c 62 57 69 64 74 |e.height|-2,bWidt|
|00000b70| 68 2c 6d 65 2e 68 65 69 | 67 68 74 2d 32 1e 67 2e |h,me.hei|ght-2.g.|
|00000b80| 66 6f 72 65 43 6f 6c 6f | 72 20 3d 20 72 67 62 28 |foreColo|r = rgb(|
|00000b90| 31 35 39 2c 31 35 39 2c | 31 35 39 29 26 67 2e 64 |159,159,|159)&g.d|
|00000ba0| 72 61 77 4c 69 6e 65 20 | 31 2c 6d 65 2e 68 65 69 |rawLine |1,me.hei|
|00000bb0| 67 68 74 2d 32 2c 31 2c | 6d 65 2e 68 65 69 67 68 |ght-2,1,|me.heigh|
|00000bc0| 74 2d 32 20 67 2e 64 72 | 61 77 4c 69 6e 65 20 62 |t-2 g.dr|awLine b|
|00000bd0| 57 69 64 74 68 2b 31 2c | 31 2c 62 57 69 64 74 68 |Width+1,|1,bWidth|
|00000be0| 2b 31 2c 31 00 1e 67 2e | 66 6f 72 65 43 6f 6c 6f |+1,1..g.|foreColo|
|00000bf0| 72 20 3d 20 72 67 62 28 | 31 37 33 2c 31 37 33 2c |r = rgb(|173,173,|
|00000c00| 31 37 33 29 33 67 2e 66 | 69 6c 6c 52 65 63 74 20 |173)3g.f|illRect |
|00000c10| 62 57 69 64 74 68 2b 32 | 2c 31 2c 6d 65 2e 77 69 |bWidth+2|,1,me.wi|
|00000c20| 64 74 68 2d 62 57 69 64 | 74 68 2d 33 2c 6d 65 2e |dth-bWid|th-3,me.|
|00000c30| 68 65 69 67 68 74 2d 32 | 03 65 6e 64 03 65 6e 64 |height-2|.end.end|
|00000c40| 00 18 69 66 20 6e 6f 46 | 6c 69 63 6b 65 72 20 3d |..if noF|licker =|
|00000c50| 20 74 72 75 65 20 74 68 | 65 6e 1a 67 72 61 70 68 | true th|en.graph|
|00000c60| 69 63 73 2e 64 72 61 77 | 50 69 63 74 75 72 65 20 |ics.draw|Picture |
|00000c70| 70 2c 30 2c 30 03 65 6e | 64 10 70 61 69 6e 74 65 |p,0,0.en|d.painte|
|00000c80| 64 20 67 72 61 70 68 69 | 63 73 07 45 6e 64 20 53 |d graphi|cs.End S|
|00000c90| 75 62 07 6d 6f 76 65 42 | 61 72 00 00 00 03 1e 03 |ub.moveB|ar......|
|00000ca0| 1e 09 0d 53 75 62 20 6d | 6f 76 65 42 61 72 28 29 |...Sub m|oveBar()|
|00000cb0| 29 27 4d 6f 76 65 20 74 | 68 65 20 62 61 72 20 61 |)'Move t|he bar a|
|00000cc0| 74 20 61 6e 20 69 6e 63 | 72 65 6d 65 6e 74 20 6f |t an inc|rement o|
|00000cd0| 66 20 73 74 65 70 53 69 | 7a 65 2d 27 74 68 69 73 |f stepSi|ze-'this|
|00000ce0| 20 69 73 20 6d 61 69 6e | 6c 79 20 75 73 65 64 20 | is main|ly used |
|00000cf0| 74 6f 20 6d 6f 76 65 20 | 74 68 65 20 42 61 72 62 |to move |the Barb|
|00000d00| 65 72 20 50 6f 6c 65 73 | 2f 27 77 68 69 63 68 20 |er Poles|/'which |
|00000d10| 61 72 65 20 63 72 65 61 | 74 65 64 20 77 68 65 6e |are crea|ted when|
|00000d20| 20 74 68 65 20 6d 61 78 | 69 6d 75 6d 20 73 69 7a | the max|imum siz|
|00000d30| 65 20 69 73 20 73 65 74 | 0c 27 74 6f 20 30 20 28 |e is set|.'to 0 (|
|00000d40| 7a 65 72 6f 29 00 18 76 | 61 6c 75 65 20 3d 20 76 |zero)..v|alue = v|
|00000d50| 61 6c 75 65 20 2b 20 73 | 74 65 70 53 69 7a 65 04 |alue + s|tepSize.|
|00000d60| 64 72 61 77 07 45 6e 64 | 20 53 75 62 0b 73 65 74 |draw.End| Sub.set|
|00000d70| 53 74 65 70 53 69 7a 65 | 0c 73 20 61 73 20 69 6e |StepSize|.s as in|
|00000d80| 74 65 67 65 72 00 00 07 | 14 07 14 0b 1d 53 75 62 |teger...|.....Sub|
|00000d90| 20 73 65 74 53 74 65 70 | 53 69 7a 65 28 73 20 61 | setStep|Size(s a|
|00000da0| 73 20 69 6e 74 65 67 65 | 72 29 2c 27 53 65 74 73 |s intege|r),'Sets|
|00000db0| 20 74 68 65 20 69 6e 63 | 72 65 6d 65 6e 74 20 73 | the inc|rement s|
|00000dc0| 69 7a 65 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |ize of t|he progr|
|00000dd0| 65 73 73 62 61 72 2e 25 | 27 54 68 65 20 73 74 65 |essbar.%|'The ste|
|00000de0| 70 20 73 69 7a 65 20 63 | 61 6e 20 61 6c 73 6f 20 |p size c|an also |
|00000df0| 62 65 20 63 68 61 6e 67 | 65 64 20 62 79 2a 27 64 |be chang|ed by*'d|
|00000e00| 69 72 65 63 74 6c 79 20 | 61 63 63 65 73 73 69 6e |irectly |accessin|
|00000e10| 67 20 74 68 65 20 73 74 | 65 70 53 69 7a 65 20 70 |g the st|epSize p|
|00000e20| 72 6f 70 65 72 74 79 2e | 29 27 54 68 65 20 73 74 |roperty.|)'The st|
|00000e30| 65 70 53 69 7a 65 20 69 | 73 20 6d 61 69 6e 6c 79 |epSize i|s mainly|
|00000e40| 20 75 73 65 64 20 74 6f | 20 6d 6f 76 65 20 74 68 | used to| move th|
|00000e50| 65 20 0d 27 42 61 72 62 | 65 72 20 50 6f 6c 65 73 |e .'Barb|er Poles|
|00000e60| 00 14 27 50 41 52 41 4d | 45 54 45 52 53 3a 20 69 |..'PARAM|ETERS: i|
|00000e70| 6e 74 65 67 65 72 00 0c | 73 74 65 70 53 69 7a 65 |nteger..|stepSize|
|00000e80| 20 3d 20 73 07 45 6e 64 | 20 53 75 62 0c 73 65 74 | = s.End| Sub.set|
|00000e90| 4e 6f 46 6c 69 63 6b 65 | 72 0c 62 20 61 73 20 62 |NoFlicke|r.b as b|
|00000ea0| 6f 6f 6c 65 61 6e 00 00 | 07 00 07 00 0a 1e 53 75 |oolean..|......Su|
|00000eb0| 62 20 73 65 74 4e 6f 46 | 6c 69 63 6b 65 72 28 62 |b setNoF|licker(b|
|00000ec0| 20 61 73 20 62 6f 6f 6c | 65 61 6e 29 2f 27 74 72 | as bool|ean)/'tr|
|00000ed0| 75 65 20 77 69 6c 6c 20 | 63 61 75 73 65 20 61 20 |ue will |cause a |
|00000ee0| 66 6c 69 63 6b 65 72 20 | 62 75 74 20 74 68 65 20 |flicker |but the |
|00000ef0| 70 72 6f 67 72 65 73 73 | 20 62 61 72 0f 27 77 69 |progress| bar.'wi|
|00000f00| 6c 6c 20 62 65 20 66 61 | 73 74 65 72 2c 27 66 61 |ll be fa|ster,'fa|
|00000f10| 6c 73 65 20 77 69 6c 6c | 20 70 72 65 76 65 6e 74 |lse will| prevent|
|00000f20| 20 66 6c 69 63 6b 65 72 | 69 6e 67 20 62 75 74 20 | flicker|ing but |
|00000f30| 77 69 6c 6c 20 73 6c 6f | 77 16 27 64 6f 77 6e 20 |will slo|w.'down |
|00000f40| 74 68 65 20 70 72 6f 67 | 72 65 73 73 20 62 61 72 |the prog|ress bar|
|00000f50| 00 2f 27 63 61 6e 20 61 | 6c 73 6f 20 61 63 63 65 |./'can a|lso acce|
|00000f60| 73 73 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 6e |ss throu|gh the n|
|00000f70| 6f 46 6c 69 63 6b 65 72 | 20 70 72 6f 70 65 72 74 |oFlicker| propert|
|00000f80| 79 00 0d 6e 6f 46 6c 69 | 63 6b 65 72 20 3d 20 62 |y..noFli|cker = b|
|00000f90| 07 45 6e 64 20 53 75 62 | 02 07 50 61 69 6e 74 65 |.End Sub|..Painte|
|00000fa0| 64 0d 67 20 61 73 20 67 | 72 61 70 68 69 63 73 00 |d.g as g|raphics.|
|00000fb0| 06 4f 70 65 6e 65 64 00 | 00 04 04 4f 70 65 6e 03 |.Opened.|...Open.|
|00000fc0| 00 03 00 06 0a 53 75 62 | 20 4f 70 65 6e 28 29 0d |.....Sub| Open().|
|00000fd0| 6d 61 78 69 6d 75 6d 20 | 3d 20 31 30 30 0c 73 74 |maximum |= 100.st|
|00000fe0| 65 70 53 69 7a 65 20 3d | 20 35 00 08 4f 70 65 6e |epSize =| 5..Open|
|00000ff0| 65 64 28 29 07 45 6e 64 | 20 53 75 62 09 4d 6f 75 |ed().End| Sub.Mou|
|00001000| 73 65 44 72 61 67 01 00 | 01 00 03 29 53 75 62 20 |seDrag..|...)Sub |
|00001010| 4d 6f 75 73 65 44 72 61 | 67 28 58 20 41 73 20 49 |MouseDra|g(X As I|
|00001020| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|00001030| 65 67 65 72 29 00 07 45 | 6e 64 20 53 75 62 09 4d |eger)..E|nd Sub.M|
|00001040| 6f 75 73 65 4d 6f 76 65 | 01 00 01 00 03 29 53 75 |ouseMove|.....)Su|
|00001050| 62 20 4d 6f 75 73 65 4d | 6f 76 65 28 58 20 41 73 |b MouseM|ove(X As|
|00001060| 20 49 6e 74 65 67 65 72 | 2c 20 59 20 41 73 20 49 | Integer|, Y As I|
|00001070| 6e 74 65 67 65 72 29 00 | 07 45 6e 64 20 53 75 62 |nteger).|.End Sub|
|00001080| 05 50 61 69 6e 74 01 04 | 01 04 03 18 53 75 62 20 |.Paint..|....Sub |
|00001090| 50 61 69 6e 74 28 67 20 | 41 73 20 47 72 61 70 68 |Paint(g |As Graph|
|000010a0| 69 63 73 29 04 64 72 61 | 77 07 45 6e 64 20 53 75 |ics).dra|w.End Su|
|000010b0| 62 00 | |b. | |
+--------+-------------------------+-------------------------+--------+--------+
